﻿Imports System.Data.SqlClient
Imports System.Management

Public Class clsActividad
    Sub RegistraActividad(ByVal Descripcion As String)
        Dim sql As String = "Insert Into Actividad (Fecha,Descripcion,Usuario,Equipo,DireccionIP) Values (@Fecha,@Descripcion,@Usuario,@Equipo,@DireccionIP)"
        Dim cnConn As New SqlConnection
        cnConn.ConnectionString = CitraConnection

        Dim Command As New SqlCommand(sql, cnConn)
        Dim Fecha As DateTime = Now()
        Dim IP As Net.Dns
        Dim PC As String
        Dim EntradaIP As Net.IPHostEntry
        Dim DireccionIP As String
        Dim Hora As String = Now.ToShortTimeString

        PC = IP.GetHostName
        EntradaIP = IP.GetHostByName(PC)
        DireccionIP = EntradaIP.AddressList(0).ToString

        Descripcion = Descripcion & " a las " & Hora


        Command.Parameters.AddWithValue("Fecha", Fecha)
        Command.Parameters.AddWithValue("Descripcion", Descripcion)
        Command.Parameters.AddWithValue("Usuario", UsuarioActivo)
        Command.Parameters.AddWithValue("Equipo", PC)
        Command.Parameters.AddWithValue("DireccionIP", DireccionIP)


        cnConn.Open()
        Dim RowsAffected As Integer = Command.ExecuteNonQuery

        If RowsAffected > 0 Then
            cnConn.Close()
        Else
            MsgBox("No fue posible insertar el registro de actividad", MsgBoxStyle.Exclamation, "Aviso")
            If cnConn.State = ConnectionState.Open Then
                cnConn.Close()
            End If
        End If
    End Sub
End Class
